home *** CD-ROM | disk | FTP | other *** search
- <HTML>
-
- <HEAD>
-
- <TITLE>Special Effects</TITLE>
-
-
-
- <SCRIPT LANGUAGE="VBScript">
-
- sub doFade(obj)
-
- if obj.filters.blendTrans.status=0 then
-
- obj.filters.blendTrans.apply()
-
- obj.style.visibility="hidden"
-
- obj.filters.blendTrans.play()
-
- end if
-
- end sub
-
-
-
- sub doTrans(obj)
-
- if obj.filters.revealTrans.status=0 then
-
- obj.filters.revealTrans.apply()
-
-
-
- if right(obj.src,5)="1.gif" then
-
- obj.src="balloon2.gif"
-
- else
-
- obj.src="balloon1.gif"
-
- end if
-
-
-
- obj.filters.revealTrans.transition=TransType.value
-
- obj.filters.revealTrans.play()
-
- end if
-
- end sub
-
- </SCRIPT>
-
- </HEAD>
-
-
-
- <BODY>
-
- <IMG SRC="balloon4.gif"
-
- id=balloon1
-
- STYLE="position:absolute;
-
- left:50;
-
- top:150;
-
- width:92;
-
- height:164;
-
- filter:blendTrans()">
-
- <IMG SRC="balloon1.gif"
-
- id=balloon2
-
- STYLE="position:absolute;
-
- left:150;
-
- top:150;
-
- width:92;
-
- height:164;
-
- filter:revealTrans()">
-
- <P>
-
- <INPUT TYPE=BUTTON VALUE="Fade Out" onClick="doFade(balloon1)"><P>
-
- Enter transition number (0-23):<BR>
-
- <INPUT NAME=TransType TYPE=TEXT VALUE="0"><BR>
-
- <INPUT TYPE=BUTTON VALUE="Do Transition" onClick="doTrans(balloon2)">
-
- </BODY>
-
-
-
- </HTML>
-
-